WHAT PROFESSIONALS 
DON’T KNOW ABOUT ADO 


0 OFTWARE INDUSTRY 


Smart Solutions 4 Smart Businesses 
E.Mail: Ahmed Neg î@WindowsLive.Com 


2ہ موص )2 ب مھ 
م AAI‏ 


بسم اللہ الذي لا يضر وع اسموہ شّيء في الذأرض ولا في السماء وهو السميع العلير 
بسم اللہ الرحون الرحدر 


أرجو ألا ينزعج محترفي صناعة تطبيقات قواعد البيانات باستخدام تقنية ۸50 
إن كنت أسأت لهم في عنوان الكتاب ( مالا يعرفہ المحترفون عن ۸٥0‏ ).ولكني قد 
تطرقت إلى بعض الطرق والمناهج الفكرية الجديدة أثناء تقديمي وتجميعي لمحتوى 
الکتاب .. کذلك لا یعبر عنوان الکتاب آنہ یحتوی علی کل ما یتعلق ب ۰۸00 فلو قررت 
فعلا تناول ۸(0 بشكل موسع فلن يكفيني ما يفوق المائة كتاب فهي تقنية جبارة 
فعلاً ٠‏ ولكن جاء هذا الكتاب لمن لا يعلم الكثير عن ۸20 وكذلك للمحترفين ولكن 
الذين يجهلون بعضاً مون سراديب الاحتراف ٠‏ وكذلك أيضا لتوسيع طريقة التعامل وع 
كائنات ۸20 وإعطاؤك الدلائل على أنها أكثر من وجرد أداة ربط بين تطبيق وقاعدة 
بیانات. 


اعذروني أن كنت قد أخطأت بأي شكل ٠‏ سواء كان الخطا إملائي أو نحوي أو خطا 
في توصيل المعلومة فربما لم يؤتيني ربي هذه الملكة كي أصل بالوعلومة لعقل القارئ. إذا 
كان لديك أية استفسارات بعد قراءتك للكتاب قم بوراسلتي شخصياً على البريد 
الإلكتروني Windows Live.com‏ @ edNegmصAhm‏ أو عن طریق الماتف 
٠. ۰g ۰۰۲ ۰ VV VT 2‏ .وذلك حتیى نقف وقفة فعلية وع ۸50 
ووويزاتها الخفيہ. 
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وكتبۂ الوواضصيع المميزة : 
تحتوي وكتبة وواضصيعي الوويزة على بعض الدروس والومقالات التي قمت بنشرها 
على الشبكة في موقع أكاديمية فيجوال بيسك للعرب وكذلك موقع منتدى فيجوال بيسك 


للعرب. 
http://www.vba4a.com/vb/showthread.php?t=429‏ 


٭ استخدام کائنات ۸50 چ 


تعرفنا في ووضوع سابق على أساسيات قواعد البيانات وكيفية التعامل وعها 
وذلك على الرابط ) 15=غhttp://www.vba4a.com/vb/showthread.php?7(‏ 
وهذا الموضسوع هو اول حدیثنا عن كائنات ېlنlٽ ActiveX Data Objects‏ 
( ۸0 ) وهي الوسيلة التي ون خلالها يتم الوصول إلى جميع أنواع قواعد البيانات من 
خلال كود 621€ a1۾Visu‏ . 


يوكنك إضافةۃ وراجع ۸٥0‏ للمشروع عن طريق فتحك للقائوۃ )ز٥٠٣۴‏ ثم أن 
تختار 6sء‏ ء١٠٠۲‏ عع 8 . وقم بتحديد الاختيار الموجود بالصورة : 


References - Project 
ûwailable References: 


Microsoft Arctive# Data Objects (MulEi-dimensional} 2Z, | ¥ angel 3 
Microsoft Active Data Objects 2,0 Library جڪ‎ 
Microsoft Activex Data Objects 2,1 Library 


Microsoft Activex Data Objects 2,5 Library Browse... 

Microsoft Active Data Objects 2,6 Library | 5 
| Priority 

[ Micrasaft Acti¥ex Plugin Help 

Microsoft Add-In Designer + 

MicrasaFt AD Ext, 2,8 For DOL and Security 

Microsoft Agent Control 2,0 3 

Microsoft Agent Server 2,0 1 ا‎ 


| IMirrosnft Anant Serwer Fstansinns 7.71 | 
¢ 3 


Microsoft Actiye# Data Gbjects 2,8 Library MH: Aluuede NegIL ا‎ 


Location: WINDOWS System 3aA\msada15, dll 


4 
Language! Standard 4 


باختيارك العنصر الوحدد gوهھg)‏ 2.8 Microsoft Activex Data Objects‏ 
وإaإط1i).‏ فقد قمت بتحميل وإضافة هذا الورجع لمشروعك ٠‏ وإن لم يخلهرلديك 


الإصدار ۲,۸ من هذه الوكتبة كما هو محدد بالصورة فقم بتحميل حزمة التحديث ل 
Visual Studio 6.00‏ ئ Micros‏ على الاابط التالي 
http://www. vba 4a .con/ vb /showthread . php? =176 7‏ ) وبذلك یتو حل 
الوشكلةۃ بأ٘سرع ما یوکن إن شاء اللہ. 


نأتي بعد ذلك للتعرف على وكونات أو كائنات ۸٥0‏ كما يلي : 


ion‏ nnectهC‏ : يتيج لك التحكم في الاتصال وع مصدر أو قاعدة البيانات. 
خdSeءec0‏ ۸ : يحتوي على السجلات التي تحصل منها على نتائج الاستعلام 
أو بوعنى خر فان هذا الكائن هو المسنول عن وصولك للبيانات بالجداول. 
Command‏ : يوكنك عن طريق هذا الكائن تنفيذ أوامر واستعلامات قاعدة 
البيانات. 

Parameter‏ : یعول وع الکائن K0٣٣2 ٣۸۹‏ لتعبین وعامل داخل استعلام 
.Stored Procedure jjig cارڊ! gi Query‏ 

St eam‏ : يوكنك الاستفادة ون الكائن أو الفنة 2٣"‏ ءء اS‏ كواهو ووضصدح 
بالوژ العا ال ابيط الآ الي 


(http://www.vba4a.com/vb/showthread.php?t=50 ) 


نبدا العمل فعلياً مع مكتبة ۸0058 كالذتي : 


¢» Connection JlnتlJl‎ jئاڪ‎ $+ 


أولاً .. لابد ون عول اتصال أو إنشاء قناة اتصال بين التطبيق الخاص بك وبين 
قاعدة البيانات ٠‏ وهذه النوعية ون العمليات يتم إنشائها عن طريق استخدام الكائن أو 
الفئة ره 1 اء عت .ويكون كود التصريد عن هذه الفنة أو أخذ نسخة من هذه 
الفنة لاستخدامها في إنشاء الاتصال على النحو التالي : 


Dim CN As New ADODB.Connect ion 


+ يوكنك موتابعة الرابط التالي لشركة ٤/0١٥١ء1‏ لزيادة وعلوماتك حول ۸50: 


EEO /SUPDBOEE MICEOSOEE. COM dEFaULE ASPX KB/ 183606 


نرجع حيث كنا ونقول كي تستطيع العمل مع البيانات الموجودة داخل قاعدة 
البيانات . يجب أن تقوم أولا بإنشاء الاتصال مع قاعدة البيانات وذلك من خلال الكائن 
ion‏ ctعnnتا‏ الذي يساعدك في الاتصال بقاعدة البيانات أو الانفصال عنها. 
والخطوة الأولى في إنشاء الاتصال هي إنشاء حالة جديدة من هذا الكائن كمافي الكود 
السابق وساعرضہ هذه الورة بأسلوب آخر: 


Din CI AS ADODS . CONNEC LOM 
Set CN = NEw ADODE . CONNEC E 1O 


وکل وا تحتاج إليہ بعد إنشاء هذه الحالةۃ هو تحديد وعاملات الاتصال واستدعاء 
الوظيفة ١٠ح0‏ . حيث يوكنك تحديد معاملات الاتصال بطريقتين . الأولى بتخصيص 
هذه الوعارلات للخاصية ۸9 1 ع 10۸۹S‏ اء عnnتC‏ كهافي الكود التالي : 


DM lL EKOVLCOeE AS SEL LMG 


"Hor MS SOL SeBvVeEE 


SLEDEOVICEE = YUSES IDS <alinall Al BASSO = < al 
م اسع 5 اعاة اداناك علي ااسودر> د دادو د0 وم< الاسر‎ 

Provider =‏ ,;<اسم السبرفر أو الآي بي أو الدومين ıiمp<‏ = Server‏ 
SOLOINIDID YL‏ 


AANA AAAAALLALANNNSSSTTTET EEE 
EOE WMS ACCESS 


SE FEEONN Ce = TPEOVUIGe = MICEOSOL E Ve OLED 4 OFS Data 
SOULECE 3 SSL ELS aul 


'Open Connection 
CDN. CORANECE 1LOMSE EAMG = SC EEO LCE 
CN . OSE 


في هذا الكود قونا أولا بتخصيص وعاملات الاتصال إلى سلسلة من البيانات 
SEE rOovVider quay‏ ثم تخ صيص هذه السلسلة إلى الخاصيۂ 
Connection String‏ وأخیرا استدعاء الوظطیفة .0p e1‏ 


أما الطريقة الثانية لتحديد وعاملات الاتصال فتكون بتخصيص أو تورير هذه الوعاملات 


مباشرة إلى الوظيفة 0p ٠١‏ التابعة للكائن °١‏ كها يلي : 


CN. OER UND <a aml > ¢ PMD =< <nلا م ية‎ 

3Ş Sve =‏ < اسم قاعكدة الببانات على السوقر> = ?294$ Dal‏ 
7Ş BVO = ( SOL‏ الم اام الامكفبف اة اعدة التتانات> 
SERVER J"‏ 


:: ولحوظة :: 

تحتوي بعض کائنات ۸(0 الذخری مثل الکائن ۸۹ C٥٣٣2‏ على الخاصيةۃ 
nne ct ion‏ التي تقبل إماسلسلة بيانات الات صال أو الكکائن 
«Alyy ADODB.Connection‏ 

عند استبدالك للوعاملات المذكورة في جول الاتصال مثل < اسم المستخدم > 
يجب حذف هذه العلامات ( > وكذلك < ) . ولكن وضصعتها فقط للتوضيح ليس إلا. 


باتباع إحدى الطريقتين السابقتين تكون قد حققت الاتصال بقاعدة البيانات 
المذكورة ٠‏ وبعد الانتهاء من استخدام الاتصال يوكنك الانفصال عن قاعدة البيانات من 
خلال الوخليفة C1 05٥‏ كما يلي : 


CEN El OS e 


++ وفهوم وعاملات الاتصال + 


كوا رأينا سوياً فإن معاملات الاتصال ( أو سلسلة الاتصال ) تحتوي على العديد 
من المعلومات والتي تشتول على ومعرف المستخدم ([1 ١عءءل‏ وكلوة المرور 
Password‏ واسم قاعدة البيانات ¢ ص Database N2‏ حيث يتم كتابة هذه 
الوعاملات في صورة أزواج ون الذسماء والقدر وفصولةۂ بعلامة الفاصلة المنقوطة ": " 
وعند إنشاء وعاملات الاتصال تحتاج إلى تعيين المعلومات التالية : 


* نوع قاعدة البيانات التي ترغب في الاتصال بھامٿJ gi SQL SERVER‏ 
 RACLE وi  CCESS‏ أو My SQ[‏ ...الخ. ويوكنك إجراء الاتصال 
بواسطۃ ۸(0 تعیین اسم میشغل 028٥‏ ون خلال الوعامل 7٥۲‏ 1 0۲ أو 
تعیین اسم وزود 01۳28 ون خلال قیوۃ الوعامول .۶٣٥7 1e١‏ 
بيانات عملية الدخول لقاعدة البيانات (( ١1-”عS)‏ إن وجدت والتي تشتمل 
على قيم اسم المستخدم 1(0 ۲ءءU‏ أو 01D‏ وکلوةۃ المرور gi Pass w0٣۵‏ 
PWD‏ 
موقع قاعدة البیانات والذي قد یشتول على قیمۃ للخادم ١۷۴٣ء5‏ قيمة لقاعدة 
البيانات مك2ة ها4( وذلك في حالة 3Q1 S٣۷۴١‏ أو اسم قاعدة البيانات 
فقط في حالة قاعدة بيانات .MS ۸° € ٤8S‏ 


الكود التالي بوضح بعض الذوتلۃ على وعاملات اتصال 50 ۸: 


"EOE MS ACCESS 


Prov GEE = MIGEOSOEE. VEE -OLEDB A OS Dalla SOU — 
CE NBOORS MODEL 


SE 


"Driver = MicCIoOSoOlLÎL ACCESS Driver (IMIDE; 
CC:  EooOES MODS 


Fort WMS SOL SERVER 
"Provider = SQLOLEDB ; Password = 0119777244 ; User lI 
Necm, Serwet > MySEeEr wet ¢; MereldelSê - BOOKS 


1 O 


"UID = Negm ; PWD = 0119777244 ; Database = Books ; 
Server = MyServer ; Driver = ( SQL Server )" 


+ وعن هذا الكود ‏ نوضح ها يلي : 

* في المثال الذول تم تعيين وعاملات الاتصال بقاعدة البيانات Ms Access‏ 
باستخدام وزود 528 :01. 

* في المثال الثاني تم تعيين وعاملات الاتصال بقاعدة البيانات Ms Access‏ 
باستخدام وشغل .0258٥‏ 

* في الوتال الثالث تم تعيين وعاملات الاتصال بقاعدة البيانات ا[اS‏ 
ER۷ ER‏ باستخدام وزود 58 1E‏ 0. 

* في الوثال الذخير تم تعيين وعاملات الاتصال بقاعدة البيانات SQ]‏ 
3S £RVER‏ باستخدام وىشغل 058° .5S291‏ 


أحد اختياراتك الهامة عند إنشائك لوعامل الاتصال هو استخدام مشغل 008٤٥‏ أو 
وزود 5۶ 012 وذلك بتعیین قیھۂ للوعامل 7e r‏ 1ث D5‏ أو lلgرJal Provider‏ 
ولیس لکلاهما معاً ۰ حیث تعتېر 058° اختصÎ‏ Jلعبlرã Open Database_‏ 
Connectivity‏ وهي تقنية قياسية لمشغلات قواعد البيانات الموجودة منذ سنوات. 
أما ۶2( 0-۳ فهي أحدث من سابقتها. لذا بوصى باستخدامها دائماً قدر الإمكان. 


o oe‏ استخدار اسر ومصدر البیانات ۾ ج 


على الرغم ون عدم استخدامها بكثرة كوا كانت من قبل يوكنك استخدام اسم 
وصدر البیانات ) Data Source Name ( DSN‏ ضسون سلسلۂ الاتصال لتعیین 
مصدر بيانات 028٥0‏ كوا في الكود التالي : 


CN.OpEn DSN 3 lLocalServert j; UID > Nem 7 PMU 2 
01197771244" 


وكوا ترى فان سلسلة الاتصال في هذا الكود بسيطة للغاية. فهي تحتوي فق ط 
على (5N‏ واسم المستخدم وكلمة الورور حيث تم تخزين بقية البيانات على مصدر بيانات 
00٣‏ الوعرف على الحاسب. للإعداد مصدر بيانات 028٤٥‏ على حاسبك ٠‏ افتح وعي 
لوحۃ التحکم Cont ro1 Pan e1‏ ثم اضسغط علی Administrative ٥٥1۶‏ ثم اختر 
hata Sources‏ وبعد ذلك ستظلھرأوlاوىك‏ liفذã ODBC Data Source‏ 
Administrator‏ التي يوكنك استخدامها في إدخال بيانات الاتصال حيث يتر 
تخصيص N×؟(‏ ١ء‏ اءر؟ لجميع المستخدمين بينها يختص N؟(‏ ١عءل‏ بالمستخدم 


الحالي فقط ... انظر الصور التالية لإنشاء اسم اتصال 8٦‏ 00 خاص بك : 


E ODBC Data Source Administrator 
User DSN | System DSM | File DSH | Drivers | Tracing | Connection Pooling 


User Daka Sources: 


dBASE Files Microsoft dB aze Driver [*.dbf] 
dBase Files - Word Microsoft Yisual Fo#Pra Driwer 
E#cel Files Microsoft Excel Driyer [.«lz] 
FoxPro Files - Word Microsoft Yisual FoxPro Driyer 
MS Access Database Microsoft Access Driver Û .mdb] 
Yisual FoxPro Database Microsoft Yisual FoxPro Driver 
Yisual FoxPro T ables Microsoft Yisual FoxPro Driwer 


ME, Ahmed Neg 


An UDELL User daka source stores Information about how to connect to 
the indicated data provider. û Llzer data source is onlp wisible to pou, 
and can only be used on the current machine. 


اک الصورة التاليه قر بتحديد نوع وحرك قاعدة البيانات » وهنا کي الوتال قمنا بتحديده 
علی انہ 3Q Ser‏ كوا في الصورة أدناد 


Lreate Mew Data Source 
Select a driver for which you want to sel up a data source. *., 


Microsoft Farado# Driver [db | 
Microsoft Paradom- Treiber [*. db |] 
Microsoft Text Driver Ft: *.c3] 
Microsoft Text-Treiber Ê. *. c3] 


في الصورة التالية ٠‏ قمنا بتعيين N.2۴‏ )0(8 .وهو اسم المشغل الخاص بك 
والذي سيخلهر فيها بعد خسمن قائمة مشغلات 028٤٥0‏ . وكذلك بيانات الخادم 
( السيرفر ) الوستضسيف لقاعدة البيانات. 


Create a New Data Source to SL Server 


This wizard will help youı create an ODBC data source that pou can use 
connect to SAL Server. 


What name do pau want ta use to refer to fhe data source? 


Ho do pou want fo describe fhe data SDUNGE ر‎ 


Description: 4 


Cllek Herê | 


اف 


في الصورة التالية قمنا بتحديد بيانات الاتصال أو الدخول للخادم ٠‏ ولكن لاح الذتي : بوا 
ننا نعمل وع MS SQا- Server‏ فمنالدينا خيارين : الأول ٠‏ وهو استخدام 
Windows NT Authentication‏ ولا داع لاستخدام اسم مستخدم أو کلمۃ ورور 
ولهذا يوكنك اختيار الاختيار رقم ( ١‏ ) كما هو بالصورة ... أها الخيار الثاني فنحن بصدد 
استخدم i01ځAuthentica Server‏ [اQ‏ 8 وعندئذ سیتطلب ونا إدخال اسم 
المستخدم بالإضافة لكلمة الورور كما هو بالجزء رقم ( )١١‏ من الصورة. 


Create a New Data Source to SL Server 


al with SIL Server authentication using a login Û ãnd pazswardû 
| entered by the user. 


Toa change the network library used ta cammunizate with SAL Serwer. 


click Client Configuratiof. 
Client Lanfiguratian... 


Lonnect ta SIL Server ta obtain default settings far fhe 
¥ additions 1 1 1 


اختر من هذه القانمة اسم قاعدة البيانات 
التي نود التعامل معها 


ITIL 


IW Ise ANSI quoted identifiers. 


HW Use ANSI nulls, paddings and warnings. 


بعد الضغط على مفتاح )× كوا في الصورة السابقة ستظهر نافذة أخرى ٠‏ قم بالضصفط 
علی مفتاج طکنہا۴ دون إحداث أیۃ تغیرات ثم سیظمر تقریر بہا تم إنشاوؤہ فاضفغط فیہ 
على الوفتاد 0K‏ وستظمر هذه النافذة : 


ODBC Data Source Administrator‏ ك 
ا User DSN | System OSM | File DSN | Driers | Tracing | Canneetion Poalina | About‏ 


llser Data Sources: 4 


Add... 
dBASE Files Microsoft dBase Driver [*.dbf] 


dBase Files - Wor Rermmûwe 


Excel Files 3 
FoxPro Files - لو دققت النظ ته کل‎ Lonfiguire... E 


aD MyODBC 


والتي بالفعل قمنا بإنشانها في الصورة رقم ٤‏ 


isal FoxPro T 4 
MH, Ahmed Negm E 


the indicated data provider. û lser dala source Iz only Yislble to you, 
and can only be used on the current machine. 


NESE‏ ای م ا 


قر بوقارنةۃ الصورة السابقة بالصورة التانيةۂ في هذا الرموضصوع ٠‏ وسنلاحظ وا الفرق. 


A ûn UDBL User daka source stores information about how to connect ta ر‎ 


4 انستخدام الوخلیفۃ ×e٥1)٥‏ چ 


يحتوي الکائن ۸ہ 1 اء عدت على الوظيفة e‏ ا uںء‏ × التي تستخدم في 
تشغيل عبارة .521 على مصدر البيانات. وإذا قامت هذه العبارة باسترجاع سجلات من 
مصدر البيانات . يوكنك استخدام هذه السجلات ببساطة شديدة عن طريق تخصيص 
القيمة الورتجعة ومن الوظيفةۃ ٤ e٥‏ اء ٤×٥‏ إلى كائن ومجووعة سجلات 
.RecordSet Object‏ 


:: ولحوظة :: 

عند العمل مع ۸(0 .۰ يوكنك الوصول إلى نفس الهدف من خلال أكثر من 
طريقة. ومثال ذلك عملية استرجاع البيانات التي يمكن تنفيذهاعن طريق أي من 
Jlلکكliûlة û ConnectiongCommandg RecordSet‏ یحتوي کل 
ونهم على وظيفة لاسترجاع البيانات من قاعدة البيانات. 


لتوضیح کیفیۃ استخدام الوظیفۃ ×٤ cu † e‏ في استرجاعہ البیانات ٠‏ قم أولاً 
بإنشاء قاعدة بيانات من خلال برنامa Students.mdb pully MS ACCESS‏ 
وأضف لها جدول واحد بنفس الاسم على أن يحتوي هذا الجدول على تلاثة حقول 
St_FNamegSt__ID‏ و St_ Name‏ .وتاب الخطوات التالية : 


افتح بينة تطوير 6.00 ة8 اu2ءا۷‏ .ثم قم بإنشاء مشروع قياسي عادي 
Standard EXE‏ 
قم بإخسافة ورجع لكائنات ۸(0 ٠‏ كما تم التوضيح بالصورة رقم .)١(‏ 


قم بإضافۃ مربع سرد ( ×0 18ء1 ) ون صندوق الذدوات وأعد تسمیتہ مٹلا إلى 
IstStudents‏ 
قم بإضافةۃ مفتاح أمر ( 01)) Command 8u‏ ) من صندوق الذدوات وأعد 


Run _ىJإ‎ ( Caption) ہنlgie وقم بتغيير‎ cmd ا02d‎ Lis) تسمیتہ إلى‎ 


.Query 
: قم بإضافة الكود التالي إلى الحدث ءذا٤ الخاص بمفتاح الذمر السابق‎ 


DIM SEF CEORREGE AS SEAMS 
Dim CN AS New ADODB.Connect ion 
Dim RS As New ADODB.Recordset 


CN.Open "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source 
> SEUSEMES MES 


SEL KS = CN. BECO UTE (YSBSLECTE * FROM SIUDENTSY) 


Do MLE NOE KS BOE 
1IstStudents.AddItem RS!ST_FNAME &4 " " & RS!ST_LNAME 


RS.MoveNext 
Loop 


Nothing 
Nothing 


لتفاصيل المثال ... يوكنك تحمليہ ون على الرابط التالي : 


(http: //www.vb4arab.com/vb/uploaded/13807/01249069849.rar) 


في الكود السابق تم استدعاء الوظيفة ٠‏ ٤ا٥‏ ×2 التي نتوي للكائن 
Connect ion‏ حیث قاموت بدورھا بإرجاع وجووعۃ سجلات ۸٥٥٥۲۹5٥٤‏ التي 
تم تخزينها بالمتغير ۸5. وبعد ذلك تم استخدام الدوارة أو الحلقة التكرارية المسماة 
0۶ .. 00 للتحرك خلال وجموعۃ السجلات وإضافۃ اسم کل طالب ورقمہ إلى 
ورع السرد أو ہا یعرف على أنہ ×0 .LİS)8‏ 


يمكنك أيضاً استخدام الوظیفۂ ع † e > u‏ ×2 لتنفيذ عبارات .21 5 التي لا تقوم 
بإرجاع وجووعةۃ سجلات كحذف السجلات أو إخسافتها كما في الكود التالي الذي يقور 


بحذف احد السجلات : 


CN.Execute "DELETE FROM Students WHERE st_FName = 'Asmaa'" 
AND st_LName = 'Mohammed'"" 


+ العوليات الأساسية لمجموعةۂ السجلات + + 


+¢ RecordSet <%<% 


تعرفنا فيها سبق على كيفية الحصول على البيانات من قاعدة البيانات ووضعها 
داخل كائن مجووعة السجلات ٥۲4٥ء ۸٥‏ التي تحتوي بدورها على صفوف من 
البيانات الموجودة داخل جدول أو أكثر من جداول قاعدة البيانات وذلك من خلال تنفيذ 
أحد الاستعلامات. وعلى الرغم من أن الاستعلام ربوا يشتول على اكثر من جدول إلا أن 
وجووعة السجلات الناتجة تبدو بالنسبة للبرنامج وكأنها جدول واحد فقط يحتوي على 
أسواء الحقول وقيمها المختلفة ٠‏ حيث تشكل كل وجموعة ون الحقول سجل واحد ١‏ كوا 
تتجوع السجلات كلها لتكوين وجموعة السجلات الناتجة. 


سنقوم فيها يلي بالتعرف على كيفيۃ إنشاء مجووعÃ‏ ښسجڊجllت RecordSet‏ 
وعرض سجلاتها ون خلال كود 821€ ۷1SU4[‏ . 


4# إنشاء وجووعة السجلات باستخدام الاستعلامات ٭ ج 


تعلونا فیہاسبق کیفیۃ إنشاء وہلء الکائن ۸٥٥٥۲4۵5٥٤‏ باستخدام 
Connect ion 0b ject . Execute‏ إلا أن هذاالكائن يحتوي على مجووعةۃ 
ون الوظائف والخصانص المستخدوة في استرجاع البيانات. وكوا هو الحال وع جميع 
الكائنات يجب أن تقوم أولا بإانشاء حالة جديدة من الكائن ٥۲۹5٥ء۸‏ قبل أن 
تقوم باستخدامہ كما في الكود التالي : 


Dim rsStudent As New ADODB.Recordset 


وبعد ذلك يوكنك استخدام تصائص هذا الكائن لتعريف الاتصال ومصدر السجلات 
ونوع مجووعة السجلات. لتعيين مصدر بيانات الكائن e‏ ء١۲٤٥ء‏ ء۸ .قم بتخصيص 


LgsActiveConnect ion ÃAيصاخلا كائن الاتصال أو سلسلة الاتصال إلى‎ 
: يلي‎ 
1 SSE UCOEME ACE 1E COME O CN 


"OR 
FS SEUSS e RIE . ACE 1 Ve CORRE GÎ DSN = Students" 


حیث : 
* يفترض في السطر الذول ون الكود أن ٩×‏ توثل اتصال مفتوح يشير إلى مصدر 
البيانات كوا أوضحنا ون قبل. 
* في السطر الثاني تم استخدام سلسلة اتصال وفي هذه الحالة يتم إنشاء كائن 
الاتصسال ضصمنياً. 


يوضصح الكود التالي استخدام الوظليفة #€1ص0p‏ . cJal RecordSet‏ 
وجووعةۃ السجلات ec٥۲ ۹5 ٥٤‏ ۸ بالبیانات حیث یتم أولا إن شاء كائن 
Recor e‏ جدید تم إضصافۃ بیاناتہ إلی ورب ع السرد ( [1S80×‏ ) الووجود 


بالنووذج. قم بإخسافة نووذج جديد للتطبيق الحالي وبنفس وواصفات النموذج السابق تمر 
قم بإدخال الكود التالي في إجراء الحدث ء 1 1 ° للمفتاح الموجود بالنووذج كما سبق : 


DIAM SEREOMNMEGCE AS SEAN 

UDImM SIISOL AS CGEEING 

Dim CN As New AUDODB.CONNECEIoN 
Dim RS As New ADODB.Recordset 


StLrLOnRNECE = "Provider = MiCEOSOEL.Jet .OLEDB.4.0 ; 
SOUFECeE = SEUGICRME S CMOS 
EE 1 SOL NSEC * FROM SEUSS ORDER BN SU UDY 


CN. OER SECCORHEE E 
RS.Open strSQL, CN, adOpenStatic, adLockReadOnly 


Do Wh le IMO RS EOE 

1StStudents. AddItem RS! ST_ II TGS RSI SM HNAME 
" " & RS!ST_LNAME 

RS.MoveNext 
Loop 


IRS CLOSE 


Nothing 
Nothing 


يوكنك تحميل المثال من الرابط التالي : 


(http: //www.vb4arab.com/vb/uploaded/13807/01249070053.rar) 


بعد تشغيلك للبرنامج أو التطبيق الذي قمنا بكتابة كوده السابق ٠‏ ستكون 
النتيج” كما يلي في الصورة : 


5. Form2 


: Ahmed Negrn 

: Abd El Rahman Hegr 
: ûzmaa Mohammed 

: lbraheer Moharmrned 
: Abd El ûzeem Ezzal 

: Mohamed lbraheern 


: Eslarm Ehaled # 
té 

4 

1# 


Mu: Ahmed Nezm 


e إخلهار وحتویات الحقول‎ e e 


استخدونا في الكود السابق الأدلة في الحصول على بيانات الحقول من مجووعة 
حقول الکائن ۲۹١١٤ء۸‏ حيث قامت عبارة 521 بإرجاع ثلاثة حقول هي كود 
الطالب والاسم الذول والاسم الذخير وتأخذ الدليل أو الترتيب ٠‏ والدليل ١‏ والدليل ۲ على 
الترتيب. ولكن يمكنك استخدام أسماء الحقول بدلا من الذدلۃ كوا فعلنا وع الكائن 


ct 101‏ c0nne.وعلى‏ ذلك يوكنك استرجاع قيمة الحقل الأول في الكود السابق 
باستخدام أي من الصيغتين التاليتين : 


بعد أن تقوم بإرجاع البيانات من مصدر البيانات إلى مجووعة السجلات 
Recor Se‏ يوكنك الوصول إلى قيم الحقول الووجودة بالسجل الحالي وتعديلها 
كما رأينا في الذمثلة السابقة. ويوكنك تصور ومجموعة السجلات كمالو كانت ملف 
طويل ٠‏ وفي أي وقت يكون السجل الحالي عبارة عن وؤشر لمكان داخل هذا الملف. وكي 
نستطيع العمل مع السجلات المختلفة الموجودة داخل مجموعة السجلات الناتجة » 
يوكنك استخدام وظائف الانتقال التالية لتغيير السجل الحالي : 


الوظيفة غ5٣‏ ۴ء Mov‏ : وتتسبب في الانتقال إلى السجل الأول بمجموعة 
السجلات بعد علامة بدايةۃ الولف ( B0۳‏ ) وباشرة. یشیر اختصار ( B0٣۳‏ ) إلى 
Beginning Of File‏ 

الوظيفة M07٠1].‏ : وتتسبب في الانتقال إلى السجل الذخير بوجموعة 
السجلات قبل علامۃ نهایۃ الولف ( 50۳ ) وباشرة. یشیر اختصار ( 0۴ ) إلى 
.End Of File‏ 

الوظيفة ٠×‏ ۸ء1067 : وتتسبب في الانتقال إلى السجل التالي بمجموعة 
السجلات ناحية علامة الولف ۴0۴. 

الوخليفةۃ كu‏ ٥1٠٥ء‏ ٥e٥٠عMHov‏ : وتتسبب في الانتقال إلى السجل السابق 
بوجووعة السجلات ناحية علامة بداية الملف 0٣‏ 8. 

الوظيفة 107٠‏ : وتتسبب في الانتقال للأمام أو للخلف عددامعيناًمِن 
السجلات. 


:: ولحوظة :: 
تعبر کل ہن B0۳‏ و 0۳ على الخصائص التي توضسح نقاط بداية ونهاية 
وجموعة السجلات على الترتيب. 


of f تعیین نوع ومؤشر السجل الحالي‎ f e 


قونا في الأوتلة السابقة باستخدام وظيفتين من وظائف التنقل بين السجلات 
وهو ا الوظيفۂ † 5 ۲ 1 ٣ء‏ 07<« والوظيفة × "0v e.e‏ كوا استخدومنا الحلقہ 
التكرارية ر10 ... "٣:1١‏ 00 للتحرك إلى الذماو داخل مجووعة سجلات 
وفتوحة حتى نصل إلى نهاية هذه المجووعة ودلالة ذلك ظهور القيوة ٠ا٣۲‏ داخل 
الخاصية 0۳. ولكن إذا قونافي الكود السابق باستخدام الوظيفة 
gi MoVvePrev ious‏ ast.اMoveفسيقوم‏ الوترجم erا¡مmص€0‏ بالاعتراضش 
على الفور وإخلهار رسالة الخطاً الوناسبة وذلك لعدو صحة Cursor Ûحgll gi‏ 
عم ر آ۲ المستخدم والذي يشير لدوره إلى المكان الحالي كمافي نافذة وحث الذوامر 
D08(‏ ) توا ولأننالم نقم بتعيين قية الخاصية 
Type‏ CurSOr.اRecordse.‏ يت الستخدام قيوته ا الافتراضسية 
a 0penForwardOn 1y‏ والتيلا تدعم الوظيفة gi Move P rev 1 us‏ 


.MoveLlLast 


سنقوم فيها يلي بتوضيح استخدام وظائف التنقل بين السجلات من خلال مثال عملي 
بسيط .. تابع معي الخطوات التالية : 


* قم بإضافة نووذج جديد إلى التطبيق الحالي مع جعلہ نووذج بدء التشغيل. 

* قم بإخسافة وربع السرد ( ×180[ ) ون صندوق الذدوات. 

٭ قم بإضافۃ ثلاثۃ مفاتیح أور ( 15 0)) Command 8u‏ 3 ) أیضاً من صندوق 
الذأدوات. 


قم بإضافة وربع نص ( ×0 ١۴×۲8‏ ) ون وربع الأدوات إلى النووذج. 
قم بتغيير اسم IstData yJإ ListBox JI‏ 

قم بتغيير اسم المفتاح على اليسار إلى ۷٤ا٣‏ dصc‏ 

والوفتاح الأوسط إلى الاnسزp cmdNext‏ 

والوفتاح الأبون cmdJunmp‏ 

ووربع النص إلى bدصuلاtx‏ 


حتى يظمر لديك التصميم بهذا الشكل : 


ML, Ahmed, Neg 


4% Prey Neml x Jump By # 


ڪڪ 


بعد تصميم الشاشة السابقة واتباع تعليمات تغيير أسهاء الكائنات على النموذج قمر 
بكتابة الكود التالي : 


OE LOM Bol LCE 


Dim RS As New ADODB.Recordset 


DIM SE ECOMAECE AE SEUNG 
DIM SEF SOM AS SERBANG 


Private Sub cmdJump_Click () 


i IME (E Xt UM. LEE) > MSC ROCOECCOUME = 1 TOME 
MEGBOS Sorry ll iE 16 2M valid POSE LON 


ESE MNS, HESE & HY 
LxtJumb. SetFocus 
E US 

BIME LE 


RS MOE IRE Ex E UMS eS 
GCaLL1 DISGLIAY COLEEeNL. RECOEG 


IME! SUNS 


Private Sub cmdNext_Click () 


RS.MoveNextL 
Gall DISBLIAY CUEEeNE_ FeTOEG 


AEE SONO 
DEN VA Ee SUS CMaEEevy Cl eK (0 


RS.MovePrevious 
CELL DLSPBLISV-CUTTFENEIRECOEG 


OC SUNOS 


Private Sub Form_Load () 


SEECGONNECE  LPEOVIIEE — MICEOSOEE VEE. OLEDE CA O SS Daka 
SOUECE <= SEUGCERE SMES 
SEESOM <S VV SREECE E EROM SEUIAER ES 


RS.CursorType = adOpenStatic 


NS OBER SEES OM, SEECORRNEE E 


Call Display CUEEEenNL Record 


BIME SUNS 


Private SUb DiISGLIay-CUErFeNE_REeCGEd() 


Dim i As Integer 
Ding & AS SECA) 


Tf RS.BOE Then RS.MoveFirst 
If RS.EOF Then RS.MovelLast 


1stData.Clear 


OE 1 = O To ROS. BISLCOS < COUAL = 


Ss = RS.Fields(i) .Name & " : " & RS.Fields(i).Value 
1stData.AddlItem s 


Next i 
Me.Caption = "Current Postion = " & RS.AbsolutePosition 


NC SUNS 


أو للاستفادة من المثال بشكل وباشر يمكنك تحمیلہ من الرابط : 


(http://www.vb4arab.com/vb/uploaded/13807/01249081503.rar) 


:: ولحوظۂ هام :: 
قونا فيماسبق بالوصول مباشرة لقاعدة البيانات دون استخدام كائن 
ct 1 0n‏ nneتا‏ .وذلك عمداً وني حتى أضع لك أكثر من طريقة للتعامل مع قاعدة 


البيانات. 


قونا في الكود السابق بإنشاء مجووعۃ بیانات باستخدار روحت ساكن ع Sta)‏ 
orكاCu‏ وذلك بتخصیص القی۸ - 1 خ2 خS‏ ١ء‏ مp‏ 0ل للخاصية 
Cursor "ype‏ والتي تسهح بالتنقل بين السجلات في كلا الاتجاهين على عكکس 
القيمة Y‏ 1 01 ع wa‏ ات ٢0ج‏ التي استخدوناها ون قبل والتي تسوح بالتقدم للذمام 
فقط ‏ وبعدذلت قونابإن ساء الإاجبااء الفرعي الرسلى 
ay_ Curren t_ Record)‏ ا1 Disp‏ )التي یتو فیھا اختبار الخاصیتین B80۳‏ 
و 0۴ أولا قبل عرض أسواء وقيم حقول السجل الحالي. وهذه الخطوة ضرورية للغاية 
وذلك لان محاولة الوصول إلى حقل غير موجود بالسجل الحالي يؤدي إلى حدوث خطأفي 
عوليۂ الاتصال. 

قم بتشغیل التطبیق السابق ولا تنسی أن تجعل النموذج الجدید ۴٣۲٣3‏ هو 
نهوذج بدء التشغيل. وعند تشغيلك للتطبيق تحصل النتائج كما بالصورة : 


&. Current Postion = 1 


a lH: 1 
sk_FNarme : Ahmed 
sk_LName : Neqrm 


Mu, Ahmed, Negm 


4% Prey Neml 5 Jump By # 


++ الحصول على عدد السجلات جج 


مهن الخصائص المامة والصاحبة للكائن اء ds‏ إاہءء۸R‏ الخاصيۂ 
cunt‏ dاتec‏ ۸ الوستخدوة لاسترجاع عدد سجلات الوجووعة. فعلى الرغم من 
إمكانية استخدام خاصية 0۳ لحساب عدد السجلات ون بداية المجووعة إلى نهايتهاء 
إلا أن استخدام الخاحسية ٣٤‏ ا ۲۹٤٣٥0‏ ١ء‏ ع۸ بوفر العديد ون خطوات الوعالجةۃ كهافي 
الكود التالي : 


1é SIOOKS o OIE SALECT FF FEOM BOO SI 


UE BSBOOKS RECORAEOUNE > O Mem 
MSCGEOS NO OOOkKS EMtered ver l1 
MLS® 
MsgBox Mumoer OF OookKS eG SEC eES > CE 
16 SIOOIKS , RECO E CICS LIE 
ERO TE 


+ فرز وترشیج وجموعة السجلات چ 


يوڪنك ڪوا تعلم استخدار عبارة 1٤ R٣‏ لترشيح وجووعةۃ السجلات الناتجةۂ 
من عبارة 521 ٠‏ كوا يوكنك استخدام عبارة 8¥ 60۸(۸ لفرزهذه السجلات 
وترتيبها ترتيباً وعيناً تبعاً لحقل أو اكثر ون الحقول الووجودة بقاعدة البيانات. 


يحتوي الكائن حع ء١‏ إ١ءء۸‏ على الخاصيتين اه ا1 1١٣و‏ اءإهS‏ التي 
يوكنها أداء نفس المهام السابقة دون التغيير في استعلام 521 المستخدم ٠‏ حيث 
يوكنك استخدام الخاصية ۲٤‏ 50 لترتيب السجلات بتخصيصها بقيم الحقول 
الوستخدومة في الترتيب وفصولة بالعلامة ", " كها يلي : 


RS . SORE "State , City , FirstName , LastName" 
RS . SOE "Age DESC , FirstName" 


وكهافي عبارة 8۲ 0۸22۸ . يوكنك تعيين إذا ما كان الترتيب تنازلي] آم 


تصاعدياً من خلال استخدام كلمة 0۳5٥‏ وع الترتيب التنازلي. يوكنك أيضا استخدام 
الخاصیيةۃ ا ٤ ٥‏ 1 : ۳ بنفس طريقة استخدام عبارة ۳1۳۸۳ كوا يلي : 


"Age > 20 AND FirstName LIKE 'A%'" 
State = EEXPTY OR State = ROA 


:: ولحوظة :: 

عند تعیین آي من الخاصیتین 1٤ ٥٤١‏ ۴1 أو 5٥٤٤‏ وإسناد قیم إلیھما فانہ يتر 
تحدیث محتویات مجووعۃ السجلات ۸٥۴٥٥۲۵ ٥٤‏ تلقائیاً کي تعکس التغبیرات 
الجديدة. 


++ تغيير البيانات داخل وجموعة السجلات ++ 


بعد أن عرفت كيفية الحصول على البيانات من قاعدة البيانات وكيفية عرضها 
على النووذج . ون الضروري الان التعرف على كيفية تغيير أو تحديث هذه البيانات ٠‏ فإذا 


قوت بإعداد مجووعۂة السجلات بصورة صحيحة » يوكنكت بسهولة شديدة تغيير 
البيانات التحتية الموجودة بقاعدة البیانات. كل وا تحتاج إليہ هو الانتقال إلى السجل 
المطلوب ثم تخصيص قيمة جديدة لكل حقل من الحقول التي ترغب في تحديت بياناتها 
وأخيراً يتم استدعاء اللإجراء أو الوظيفة المسئولة عن الحفظ والتحديث في قاعدة البيانات 
كوا بالوتال التي : 


RS.Fields ("FirstName") .Value = "Asmaa" 
ES. UGS 


يوكنك كذلك إضافة سجلات جديدة إلى الكائن ءل ۲٥ء ۸٥‏ باتباع نفس 


الخطوات السابقة مع خطوة واحدة إضافية كما يلي : 


۸d New استدعاء الوظيفة‎ 


* تخصيص القيم للحقول. 
٠‏ استدعاء الوظيفةۂ ٤ا‏ a2١م0.‏ 


يوضح الكود التالي كيفية إضافة سجل جديد إلى جدول 8)u d٤1)‏ : 


Dim RS As New ADODB.Recordset 
Dim SETLONNECEL As CEEING, SLESOL AS CEEING 


"Open ã recordset 


strConnect = "Provider = Microsoft. Jet. OLE 
SOME CEE = SEUIERES MIO 
SE ESO <> SBLECT - BROOM SEUCIERE SL 


RS.CursorType = adOpenDynamic 
RS OBEN SERGO SEECORNREGE E 


RS.AddNew 
RSI SE MD = © 
RS!st_FName = "Abdo" 
RS!st_LName = "Negm" 
RS. Update 


RO CLOSES 


MSGIEOS YA Mew eco MAS een added SUCCESSEULLY 11, 
IOLA Ol MAILE LOM 


وكوا هو الحال كذلك مع عبارة ۸1 ]1N5٤‏ 501 .يجب تخصيص القيم للحقول التي 
لا تستقبل 1 1ا۸ قيم فارغۃ وإلا تظهر رسالة خطا. 


يوكنك أيضاً حذف السجل الحالي داخل مجموعة السجلات باستخدام الوظيفة 
Delete‏ كھايلى : 


Rs.Delete 


وبوجرد استدعاء هذه الوظيفة ( ه ء 1 0٥‏ ) لا يصبح هناك وجوداً للسجل الحالي لذا 
يجب أن تعقب عولية الحذف هذه باستدعاء إحدى وظائف التنقل بين السجلات قبل 
وحاولة الوصول إلى قيم الحقول. 


+ وفهوم تارین السجلات في 50 ٭٭ 


تكون وجووعةۃ سجلات ۸(0 افتراضياً للقراءة فقط .لذافعند محاولة 
تخصيص قيمة أحد الحقول في هذه الحالة يتسبب في ظلهور رسالة خطأا. فإذا أردت 
إضافة أو تغيير أو حذف السجلات. يجب عليك أن تقوم أولا بتعيين قيمة أخرى 
للخاصية ءم ر1 1١٥)‏ المستخدومة لتحديد نوع تأمين السجلات المستخدم كمافي 
الكود التالي: 


RS. LOCK UYOS = ACLOCK OOE MMA EE LE 


ولعلك تتساعءعل الذن عن مدع أهمية هذه الخاصية. والإجابة ببساطة شديدة أنك إذا 
قوت بتعديل السجلات في قاعدة بيانات متعددة المستخدمين . يجب أن تكون على 
درايةۃ كافية بوفهوم تأمين السجلات ع”ذkءما‏ dإReco‏ والذي يعني ونع 
المستخدمين التخرين من محاولة التعديل قي نفس السجل الموجود في قاعدة البيانات 
في نفس الوقت. لذا يتم التحكم في تأمين السجلات ون خلال الخاصية eءم1y‏ )ع0ا 
التي يمكن أن تحتوي على إحدى القيم التالية : 


٠‏ القيمة( ockRead0.^1yاad‏ ) :وتقوم بتعیین بیانات مجموعۃ 
السجلات للقراءة فقط . 


القيمة ( عءذخءذصذءockPesاad‏ ) :وتوفرالتأمين التشاؤمي 
للسجلات وهو ما يعني تأمين السجلات أثناء تعديلہ . 


القيمة ( ٤ذ‏ غ5 ذ٣‏ غ a10 ck 0p‏ ) :وتوفر التأمين التفاؤلي للسجلات 
وهو موا يعني تأمين السجلات عند استدعاء الوخليفة هءخهلمن فقط .. أي أنك 
تستطبع تعديل السجلات كما يحلولك ولكنك لن تستطيع تطبيق هذه 
التعديلات على قاعدة البيانات حتى ينتهي المستخدم الذخر لنفس موجموعة 
السجلات ون الانتهاء في العمل عليها . 


٠‏ القيوة ( خخ ad LlockBatchOpt imi s‏ ) : وتوفر تحدیث أکثّر من 
سجل في نفس الوقت ون خلاJ‏ اlلgۉlيغفÃۂ ch‏ خUpdateBa‏ . 


وكذلك أيضاً يجرنا الحديث حول ۸00 إلى النقطة الخاصة بومشاهدة تغييرات 
الآخرين وكيفية تحديد مؤشرات الجداول في التعامل وع التطبيقات الشبكية التي تعمل 
على أکثر من جهاز ۴€ . 


ېه جه وشامدة تغیبرات الاخرين e ADO‏ که 


عند العمل مع قاعدة بيانات متعددة المستخدمين أي يتم الوصول إليهامن خلال 
شبكة ون الحاسبات . يجب التأكد ون دقة البيانات الموجودة داخل وجووعة سجلاتك. 
فكوا ذكرنا سابقاً أن الخاصيةۃ ءمر1آ٣إاهءإuع‏ ربماتقيد عولية الانتقال بين 
السجلات ٠‏ وعلى ذلك تعتمد النقطة الرئيسية في تحديد نوع المؤشر المستخدم على 
كيفية ارتباط وجموعة السجلات بالبيانات الأنساسية الموجودة بقاعدة البيانات. 


وفيما يلي نوضح القيم المختلفة للخاصية [ مرآ إت كعإنح ] ومدلول كل منهاء. 


٠‏ القيمة ( ado pen orward0^1¥‏ ) :تستخدم لتسریع استرجاع 
البيانات إلى الذمام فقط داخل وجووعة السجلات ... ويوكنك الاستفادة من هذه 
القیوۃ في فتح الاتصال بالجدول بھذہ الطریقۃ لتعبئنۃ کائن ×>08o0ط C٥٦‏ أو 
.ğJIListBOX ..‏ > لأنك لن تكون في حاجة إلى الاحتفاظ بالسجل في الذاكرة 
بعد قراءتہ . وباستخداوك لهذه الطريقة بوجرد قراءة السجل والانتقال إلى 
السجل التالي لہ يتم حذف السجلات السابقة جويعها من الذاكرة وها يخفف 
أعباء العمل في ذاكرة الجهاز . 


القيمة ( غ a0 penKey Se‏ ) :تتيح لبرناوجك مشاهدة بعض تغبيرات 
البيانات التي تتم ون قبل المستخدمين الآخرين ‏ ولكنها أدق في حالة العمل على 
الخادم ‏ على حد علمي . 


٠‏ القيوة ( 2"1" a0 penny‏ ) :تتيجح لبرناوجك مشاهدة جميع تغفييرات 
البيانات التي تنم من قبل الوستخدومين الاخرين . 


٠‏ القيمة ( ء1 غ 2خ ado penS‏ ) :لا يهوكن من خلال هذه القيمة مشاهدة 
أي تغييرات من قبل المستخدمين الآخرين ٠‏ وذلك لأنك قد استخدمت طريقة 
الفتح الاستاتيكي ( الساكن ) للبيانات ١ويمكنك‏ استخدام مثل هذه الطريقة في 
الفتح متلا عند إنشاء وصناعة التقارير . 


يعتمد نوع القيم المتاحة لمؤشر السجلات على نوع قاعدة البيانات من قبل جويع 
قواعد البيانات. ففي حالة قاعدة بيانات كوعءء [1S A۸‏ على سبيل المثال ٠‏ تكون القيمةۃ 
الافتراضية للمؤشرهي ۲4011¥ 2ا0 "ا enم0pهه‏ والتي تستخدم للقراءة 
السريعۂ من قاعدة البيانات ٠‏ بينوا يفضل استخدار jgllشر adOpenKeySet‏ 
في حالة عمليات التحديث والعمليات المركبة الأخرى. 


+¢ ٩٥C0 21d كائن الذور‎ +4 


عند العمل مع مجووعة ون البيانات . فانك تقضي معظم الوقت في التعامل وع 
خصائص ووظانف الكائن أو الفئة ٤ء ds‏ ا٥ء‏ ١٥ء۸.لكن‏ إذا وا أردت استرجاع هذه 
البيانات ٠‏ فستجد أن لا غنى عن استخدام ٤٥٣٣١2١١‏ 220 الذي يتيج لك تضمين 
استعلام أو إجراء .521 مخزن داخل كائن قابل للاستخدام اكثر ون مرة وبالتالي يكون هو 
الحل المثالي إذا أردت تنفيذ عولية من العمليات مرات عديدة. ويتم تخزين معاملات 
الاستعلام أو الإجراء المخزن داخل التجوع ٠١١‏ ٤٠٣ج‏ ۲ه ٥‏ الخاص بالكائن 
Nd‏ naہm٥c.‏ وبعد أن ننتھی من إعداد هذا الکائن یوکنك تغییر وعاملاتہ واستدعاوہ 
اكتر من ورة. 


لتوضيح كيفية استخدام الكائن ف ٥٠۸72 ١‏ . انظر وعي إلى عبارة .501 التالي 
التي تقوم باسترجاع جميع الطلبة الذين يبدا اسمهم الأول بحرف "۸" : 


SELECT * FROM Students WHERE st_FName LIKE 'A%'" 


سنقوم بتحويل العبارة إلى إجراء مخزن داخل قاعدة بیانات وھù‏ giعg Ms SQL Server‏ 
كي يقوم الوستخدم بتحديد الحرف الذول بنفسہ وذلك كما يلي : 


CREATE PROCEDURE spSearch 
@strSearchLetter char (1) 


FROM Students 
WHERE st_FName LIKE @strSearchLetter + '$%'" 


بعد ذلك يوكنك إنشاء الكائن 0K٥٣ ٣2 1١‏ وإخباره بالإجراء الوخزن أو وما يدعى 
treed Procedure‏ والووجود داخل قاعدة بlنlٽ Ms SQL Server‏ وتورير 
قيمة المعامل المطلوب في ذلك الإجراء كما بالكود التالي : 

Dim CN As New ADODB.Connection 


Dim RS As New ADODB.Recordset 
Dim Cmd As New ADODB.Command 


Dim Prm As New ADODB.Parameter 


'Open a CONNECTION to the database 
CN.Open "Provider = SQLOLEDB ; Password = 0119777244 ; 
User ID = Negm ; Server = MyServer ; Database = Students" 


"Setup the COMMAND object 
Cmd.CommandType = adCmdStoredProc 
Cma. CommandText = "SspSearch" 

Cmd.ActiveConnection = CN 


"Setup PARAMETER object 

Prm = Ema. CFeat CEA ame le E CSE ESEeEaArE ERLE EEE, adChar, 
ACPA EMIMOUC, Ay, YAW) 

Cmd.Parametêers .Append (PIM) 


"Setup the RECORDSET object 
RS. CuUrSOrIYDE = aACUDENSLALIC 
NS LOCK TAOS = aAOLOCOOE MN SE 1C 


EXECUTE ERe COMMaARG 
RS.Open Cmd 


وكوا ترى فان هذا الكود يحتوي على جميع كائنات ۸(0 التي شرحناها في هذا 
الووضوع حتی الان. کہا یحتوی الکائن ۸۹ ٥٥٣٣2‏ على وجووعۃ من الكائنات 
٥ r amet ers‏ التي يمثّل كل مونها وعامل داخل اللإجراء المخزن. ويمكنك بعد إنشاء 
الكائن ك ١‏ ٣٣ت‏ ° احتواء هذه الوعاملات واستدعائها مرة أخرى من خلال عدد قليل 
ون اسطر الڪود ڪها يلي : 


Cmol. PAFAMELeES (VOSTESEAEERLETEOEY) . Value = YAY 
RS.close 
RS.Open cmd 


وفي هذا الكود يتم إعادة فتح مجووعة السجلات مرة أخرى بعد تغيير وعاملات الذمر أو 


الکائن ك 2٥۳٣١١ ١‏ حيث يتم استرجاع جويع الأسهاء التي تبدا بالحرف ۸. 


:: ولحوظة :: 
يحتوي الكائن ك C٥٣٣2 ٣‏ أيضاً على الوظيفة u٤ ٠‏ ء×K‏ التي تعمل 
بطريقةۃ مشابهة لمثیلتها في الکائن ۸ 1 خc Conn‏ 


+ وجووعات السجلات الرنفصلاة چ ج 


تو استحداث وجووعة السجلات المنفصلة أي التي تعمل داخل الذاكرة بوعزل عن 
قاعدة البيانات المصاحبة ٠‏ حيث يوكنك تحديث موجووعة البيانات وحفظهاعلى وحدة 
تخزين عءء ۷1ء5 ءع4١S)0‏ إن أحببت وكذلك تحقيق التزامن بينها وبين قاعدة البيانات 
فيها بعد. وتظمر أهممية السجلات lالigفصÃl aie Disconnected Recordset‏ 
العمل وع البيانات الكبيرة التي يستخدوها آلاف المستخدمين ٠‏ ولكن هذه التقنية تقلل 
من وقت الاتصال وتزيد في سرعة عرض النتانج الوطلوبة. 


يوكنك فصل وجووعة السجلاث اء دك إهتءءR‏ عن قاعدة البيانات عن 
طريق تخصيبص القیوۂ 12ء 1 CursorLocation Aيصاlځلlلl adUseC°C1‏ 
التي تحدد وكان الموؤشر إذا كان في قاعدة البيانات ( جهة الخادم ) أو في الذاكرة (جهة 
العويل ). ويوكنك إنشاء وجووعة السجلات الونفصلة باتباع الخطوات الذتية : 


قم بإنشاء کائن ۸٥٥٥۲٩5٥‏ جدید. 
قŞۉوضم‏ بتخصيص القية ۸ء٠‏ 11٣٤ء ۹0s‏ للخاصية 
CUFSOFLOCSE LON‏ 


قم بملء الكائن + لإ ٥ء 8٠‏ بالبيانات من خلال الاتصال بقاعدة البيانات 


باستخدام الوظيفة ۸٤ح0‏ كما سبق وأن شرحنا. 


قم بتخصيص القيمة ActiveConnect i01 Aيصاlخlلl Not 11 ٣3‏ 
حتی یتم ن تعطیل أو فصل قناة الاتصال بين التطبيق وقاعدة البياناث. وذلك كما 
بالكود التالي : 


Dim CN AS NEw ADODE . CONNEC AOA 


Dim RS As New ADODB.Recordset 


CN. OBEN "PrOvVlIder = MiICEOSOIL. ICEL. OLEDE. 40; Uil Sourtce 
> SEUGCRMES MOO E 


RS.CursorType = adOpenKeyset 
RS. CuUESOELOCaALION = adUseLlienkE 
RS.LockType = adLlLockOptimistic 


RS. Open "SELECT F FROM STUDENTS", CN 


RS.ActiveConnection = Nothing 
إنشاء وجووعة السجلات ون خلال الکكود ج‎ + 


على الرغم من سهولة ملء مجووعة السجلات اع ۲ds٤إ١ءء۸‏ ون قاعدة 
بيانات ووجودة بالفعل بسهولة وببساطة شديدة ٠‏ إلا انك تستطيع إنشاء وجموعة 
سجلات ون البدایۃ باستخدام الکود عن طریق إنشاء کائن 5٥٤‏ ۵٤٥ء٥۸‏ جدید تمر 
إنشاء مجووعة الحقول 15 ٥1‏ 1 ۴ وأخيراً إضافة السجلات باستخدام نفس الوظائف 


التي ذكرناهاسابقاً. تابع الكود التالي كمتال صغير على ماسبق ٠‏ وسنقوم بإنشاء 
مجووعۂ سجلات تحتوي على حقلين فقط همها "2۸١١‏ و ء٠۸‏ وذلك بعيدا كل البعد عن 
أي وجود لقاعدة بیانات : 


Dim RS As New ADODB.Recordset 


"Emele SEEUEEUEE 
RS.Fields.Append "Name", adVarChar, 25, adFldIsNul 1] 
RS.Fields.Append "Age", adInteger, , adFldMayBeNul 1] 


"Add a record 
ES OBE 


RS.AddNew 
RS.Fields ("Name").Value = "Ahmed Negm" 
RS.Elel ds (TAgGe") . Value = 22 
MsgBox "Data has been saved successfully N 
VOR OEMa E XOM 
RS.Update 


الجديد في هذا الكود هو انك بعيداً كل البعد عن قواعد البيانات . أنت الذن تعمل 
بذاكرة جهازك الشخصي .. إذا أدركت هذه النقطة كما هو مطلوب فثق انك قد دخلت 
مصاف الوحترفين . أعلم أن الفكرة قد تكون صعبة نسبيا حيث قد تعودت دائواً 
استخدام ۸S‏ وع كائن 0N‏ بالإضافة لقاعدة بيانات . ولكن هنا الوضع قد اختلف كل 
الاختلاف فنحن هنا لم نتعرض لقاعدة بيانات من أي نوع على الإطلاق ‏ فقد قهنا بإنشاء 
جدول من نوع جديد على الإطلاق وهو جدول وهمي ومكان وجوده هو ذاكرة الجهاز الذي 
تعمل علیہ .. لن أستطيع التحدث عن هذه النقطة أكثر من ذلك ولكن بإوكانك طرج 
استفسارك على المنتدى في قسم ربط محركات قواعد البيانات بفيجوال بيسك 1 
الملحق بقسم فيجوال بيسك ١‏ .. وها ظهر جديدا أيضافي هذا الكود هو استخدام 
الوخليفة ١١‏ ء مح التي تقوم بإضافة حقل إلى مجموعة البيانات وتحتوي على أكثر من 
وعارل مثل اسم الحقل ونوع بیاناتہ وطول هذا الحقل وکذلك بعض صفاتہ وثل عدم 
استقبال القيمة 1 1 ا بتعبينك للخاصية a 4۴141 5N u1 1a6 1٩‏ .أو إمكانية 
استقبال قيم فارغة بتعيينك للخاصية 1 1 24۴141278٥۸ u‏ .كهافي الحقل 
Name‏ و عب على الترتيب. 


وها جد جديداً هنا هو حفخ وجووعة السجلات داخل ملف بتنسيق .۷1× على 
القرص الصلب باستخدام الكود التالي على سبيل المثال : 


RS , Save WC \TEmoOLaAlOLE nl ¥, EACOPEK S1 SE SOML 


کھا یوکنك بکل بساطۃ استخدام هذا الملف وما حفظ فیہ ورة أخری عن طريق 
الكود التالي : 


RS.Open "C:\TempTable.xml" 


+ تحدیث قاعدۂ البیانات ٭ چ 


لا أدري من أين ابدأ. فقد دخانا في وعوعة ال ۸0 منذ قليل .. ولكن دعونا نبداً 
بشڪل عادي ولا نابہ لها يقابلنامن صعوبة وفقط نستوعب ماهو مكتوب ونقوم 


بتطبيقہ .. تعرفنا قبل ذلك على كيفية تأمين السجلات لونع وجموعة المستخدمين من 
التعامل وع نفس الحقل في نفس الوقت ٠‏ وتم وناقشة هذا الموضصوع على الرابط التالي : 
http://www .vba42.c0om/vb/showthread.php ? t= 71‏ أو کواتم ذکرa‏ 
سابقاً. لكن على الرغم من ذلك يأخذ وفهوم تامين السجلات وعنى أخر عند العمل مع 
وجووعة السجلات المنفصلة. فإذا لم تكن متصلا بقاعدة البيانات ٠‏ فأنت بذلك تقوم 
بالنظر إلى السجلات كوا لو كنت تنظر إلى ومجموعة من الكتب داخل المكتبۂ. فإذا قمت 
بتحديث أو تعديل بيانات وجموعة السجلات . فلن تنعكس هذه التغييرات على قاعدة 
البيانات حتى تقوم بتسجيل هذه السجلات. 


أشعر بأن عقلك بدأ يضطرب إذا كنت أول ورة تقرأً هذه الوعلومات .. تخيل بأنك 
تو تعبينك كموظف جديد بقسم الأرشيف في إحدى المصالح الحكومية الأكثر غباء هذا 
على سبيل المثال وقال لك مديرك عليك تسجيل البيانات الخاصة بالشمر الماضي لأنها 
لو تسجل بعد ٠‏ وقد داهمك الوقت ولم تستطيع إنجاز عملك في المصلحة الحكومية أو 
أثناء وقت عولك وطابت من مديرك أخذ العمل والملفات للمنزل كي تنجز أعوالك في 
هدوء وبدون إزعاج ولا خطاً ٠‏ ولكن المشكلة هنا أنك لابد من أخذ هذه الملفات مرة أخرع 
بعد إنجازها للأرشيف ووضعها في أماكنها ورة أخرى. تعال معي نترجم هذا لكلام بروجي : 


يمكنك تحديث قاعدة البيانات بطريقتين ٠‏ الأولى بإرجاء الأمر إلى 400 كي 
يقوم بعملية التحديث المجوعة ء٤2١‏ م0 طc‏ هط .أماعن الطريقة الثانيةۃ فتتمر 
يدويا من خلال الكود بوعالجة كل سجل داخل وجموعة السجلات المنفصلة باستدعاء 
إجراء مخزن لتحديث سجل قاعدة البيانات المصاحب. وفيما يلي نقوم بإلقاء نظرة خاطفة 
على كل ون الطريقتين. 


چم تحدیٹث وجووعۂ ون السجلات چ 


يتيد لك التحديث المجوع للسجلات إجراء العديد من التغييرات على مجموعة 
السجلات وتطبيقهاعلى قاعدة البيانات المصاحبة ورة واحدة من خلال الوظيفة 
Up dat e Bat ch‏ .ولکي تتوکن ون استخدام هذہ الوظیفۃ ٠‏ يجب تخصیيص القيمہ 


a d10 ck Bat chOptLMiS tC‏ للخاصية ype‏ ا ck‏ 10 الخاصةۃ بوجموعہۂ 
السجلات كما يلي : 


RS. LOCK TAOS = aAOMOECRK BAKE CAO AMA SE 1C 


وعلى ذلك تشتمل رحلة التحديث على الخطوات الذنية : 


إجراء التغييرات على مجووعة السجلات الونفصلة كما في الكود التالي : 


RS.Fields ("Name") .Value = "Ahmed Negm" 

RS.Update 

E E sS 
بعمل حذف لأحد السجلات » فقط كدليل لك على أنك قد قمت ببعض‎ 
التعبر اك ى كاعدة الببانات‎ 

RS MOE NE >< E 

RS.Delete 


* إعادة تنشيط الاتصال وع قاعدة البيانات بتخصيص كائن الاتصال الوفتود 
للخاصیۂ 10۸ ئخveConnec ct i‏ کھمایلي : 


RS.ActiveCommand = CN 
: تحديث قاعدة البيانات من خلال الوظيفة 1ء 82ء 2ل مطل كما يلي‎ * 


RS.MarshalOptions = adMarshalModifiedOnly 

RS.UpdateBatch 

وقد استخدمنا الخاصية ٥٣١‏ 1 ام10 ٣2‏ ء ع 1a‏ التي تحدد إذا وا كنت تريد 

استرجاع وجووعة السجلاث بالكامل آم السجلات التي تم تعديلهافقط. وبذلك تتر 
عولية التحديت بتغيير قيمة الحقل 2٨٣٤١‏ في السجل الأول تر حذف السجل التالي. 


0 تحدیث البيانات یدویا od‏ 


ربوا أردت في بعض الذحيان وزيدا من التحكم في عملية التحديث ٠‏ وفي هذه الحالة 
يوكنك استخدام الخاصية كن خ2 خ5 الوصاحبة للكائن ٤ء‏ ۲١٥ء۸۴‏ لتحديد نوع 
التحديث الذي يتم على سجل معين ٠‏ وذلك كما في الكود التالي : 


lê NOE KS BOB 


lect Case ROS EAE US 
Case ADODB.RecordStatusEnum.adRecNew 
I INSER I NO o AS & 5 ¿ سالا © ال اا ك‎ 


الجتارة 


Case ADODB.RecordStatusEnum.adRecModified 
UE DAĞ <. جاك تبر للفحل ى تع وتتقنل النارة‎ 
MCE SELECE 


RS.MoveNext 


Loop 


MC SUIS 


إلى هنا أكون قد وصلت إلى جولتي الأولى والقصيرة في نفس الوقت وع ۸00. 
راجيا من اللہ - تعالى - أن أكون قد وفقت في زيادة معرفة القارئ عن ۸00 ولو بشيء 
یسیر .. وانتظرونا في لقاء آخر موسع حول التعارل وع 50 ۸. 


أكرر ورة أخرع ... إذا تكرمت أخي ووجدت أخطاء فنية في الأكواد أو الروابط 
المباشرة أو الذمثلة المرفقة أو حتى أخطاء إملائية ٠‏ فلا تتردد وراسلني كي نخرح هذا الورجع 
باحسن صورة. تابعونا على منتديات أكاديمية فيجوال بيسك للعرب على الرابط 
www. 242 .c0m‏ أو ونت دیات فیجوال بسك للعرب عل ی الرابط 
4ar2b.comط. www‏ وستجدون دوواً وا تطلبونہ وتسعون للحصول علیہ أثناء 
ورحلتكم التعليمية بلغات cإوج8‏ اهuءذ۷‏ ولغات أخرى. 


سبحان اللہ عدد خلقہ ورضا نفسہ وزنۂۃ عرشہ ووداد کلواتہ ... وصسلی اللہ وسلم وبارك 
علی سید الخلق کلھم سیدنا محمد صلی اللہ عليہ وسلم صلاة دائمة إلى يوم الدين. 
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